home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / COMEIN.DXR / 00405.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  894 b   |  37 lines
  1. on exitFrame
  2.   global effectspath, sndcounter
  3.   set the keyUpScript to EMPTY
  4.   sound playFile 2, effectspath & "opengate.aif"
  5.   repeat with i = 13 to 30
  6.     sprite(i).visible = 1
  7.     puppetSprite(i, 0)
  8.   end repeat
  9.   if sprite(5).visible = 1 then
  10.     sprite(6).visible = 1
  11.     sprite(8).visible = 0
  12.     sprite(11).visible = 0
  13.     sprite(12).visible = 0
  14.   else
  15.     if sprite(8).visible = 1 then
  16.       sprite(6).visible = 0
  17.       sprite(9).visible = 1
  18.       sprite(11).visible = 0
  19.       sprite(12).visible = 0
  20.     else
  21.       if sprite(11).visible = 1 then
  22.         sprite(5).visible = 0
  23.         sprite(8).visible = 0
  24.         sprite(12).visible = 1
  25.         sprite(11).visible = 0
  26.       else
  27.         sprite(6).visible = 1
  28.         sprite(5).visible = 1
  29.         sprite(8).visible = 0
  30.         sprite(11).visible = 0
  31.         sprite(12).visible = 0
  32.       end if
  33.     end if
  34.   end if
  35.   sndcounter = 91
  36. end
  37.